Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/vbmail/reply.frm

Text File | 1995-09-06 | 7KB | 251 lines

VERSION 2.00
Begin Form Reply
   BackColor       =   &H00FFFF00&
   Caption         =   "Message Reply"
   ClientHeight    =   5385
   ClientLeft      =   1185
   ClientTop       =   810
   ClientWidth     =   7500
   Height          =   6075
   Left            =   1125
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   5385
   ScaleWidth      =   7500
   Top             =   180
   Width           =   7620
   Begin TextBox ReplyText
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   2370
      Left            =   180
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   2805
      Width           =   7170
   End
   Begin TextBox MsgText
      BackColor       =   &H00FFFF00&
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1410
      Left            =   165
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   8
      Top             =   1110
      Width           =   7185
   End
   Begin Frame Frame1
      BackColor       =   &H00FFFF00&
      Caption         =   "To: Al Stevens"
      Height          =   1095
      Left            =   165
      TabIndex        =   1
      Top             =   30
      Width           =   7185
      Begin Label MsgSubj
         BackColor       =   &H00FFFF00&
         Caption         =   "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
         Height          =   225
         Left            =   780
         TabIndex        =   7
         Top             =   810
         Width           =   6330
      End
      Begin Label Label3
         BackColor       =   &H00FFFF00&
         Caption         =   "Subj:"
         Height          =   270
         Left            =   150
         TabIndex        =   4
         Top             =   810
         Width           =   495
      End
      Begin Label MsgFrom
         BackColor       =   &H00FFFF00&
         Caption         =   "xxxxxxxxxxxxxxx"
         Height          =   225
         Left            =   780
         TabIndex        =   6
         Top             =   570
         Width           =   3480
      End
      Begin Label Label8
         BackColor       =   &H00FFFF00&
         Caption         =   "From:"
         Height          =   225
         Left            =   150
         TabIndex        =   2
         Top             =   570
         Width           =   510
      End
      Begin Label MsgDate
         BackColor       =   &H00FFFF00&
         Caption         =   "xx/xx/xx"
         Height          =   225
         Left            =   780
         TabIndex        =   5
         Top             =   315
         Width           =   840
      End
      Begin Label Label1
         BackColor       =   &H00FFFF00&
         Caption         =   "Date:"
         Height          =   255
         Left            =   150
         TabIndex        =   3
         Top             =   300
         Width           =   495
      End
   End
   Begin Label Label2
      BackColor       =   &H00FFFF00&
      Caption         =   "Reply:"
      Height          =   240
      Left            =   165
      TabIndex        =   9
      Top             =   2550
      Width           =   690
   End
   Begin Menu ID_FILE
      Caption         =   "&File"
      Begin Menu ID_OPEN
         Caption         =   "&Open"
         Begin Menu ID_MAILBOX
            Caption         =   "&Mailbox"
         End
         Begin Menu ID_EDITOR
            Caption         =   "&Editor"
         End
         Begin Menu ID_MAILFILES
            Caption         =   "Mail &Files"
         End
      End
      Begin Menu ID_SEND
         Caption         =   "&Send"
         Shortcut        =   ^S
      End
      Begin Menu ID_DELETE
         Caption         =   "&Delete"
      End
      Begin Menu sep
         Caption         =   "-"
      End
      Begin Menu ID_EXIT
         Caption         =   "E&xit"
      End
   End
   Begin Menu ID_EDIT
      Caption         =   "&Edit"
      Begin Menu ID_CUT
         Caption         =   "Cu&t          Shift+Del"
      End
      Begin Menu ID_COPY
         Caption         =   "&Copy       Ctrl+Ins"
      End
      Begin Menu ID_PASTE
         Caption         =   "&Paste      Shift+Ins"
      End
      Begin Menu ID_DEL
         Caption         =   "&Delete     Del"
      End
   End
End
DefInt A-Z

' ---- Add User Name to Reply Form
Sub Form_Load ()
    Frame1.Caption = "To: " + MyUserName
End Sub

' ---- Edit/Copy Menu Command
Sub ID_COPY_Click ()
    SendKeys "^{INSERT}"
End Sub

' ---- Edit/Cut Menu Command
Sub ID_CUT_Click ()
    SendKeys "+{DEL}"
End Sub

' ---- Edit/Delete Menu Command
Sub ID_DEL_Click ()
    SendKeys "{DEL}"
End Sub

' ---- Edit Menubar Selection
Sub ID_EDIT_Click ()
    If CanWrite = True Then
        Blk = (ReplyText.SelLength > 0)
    Else
        Blk = (MsgText.SelLength > 0)
    End If
    ID_CUT.Enabled = (Blk And CanWrite)
    ID_COPY.Enabled = Blk
    ID_DEL.Enabled = (Blk And CanWrite)
    ID_PASTE.Enabled = (ClipBoard.GetFormat(CF_TEXT) And CanWrite)
End Sub

' ---- File/Open/Editor Menu Command
Sub ID_EDITOR_Click ()
    Unload Reply
    Editor.Show
End Sub

' ---- File/Exit Menu Command
Sub ID_EXIT_Click ()
    Unload Reply
End Sub

' ---- File/Open/Mailbox Menu Command
Sub ID_MAILBOX_Click ()
    Unload Reply
    LoadMailBox "MSG"
End Sub

' ---- File/Open/Mail Files Menu Command
Sub ID_MAILFILES_Click ()
    Unload Reply
    LoadMailBox "FIL"
End Sub

' ---- Edit/Paste Menu Command
Sub ID_PASTE_Click ()
    SendKeys "+{INSERT}"
End Sub

' ---- File/Send Menu Command
Sub ID_SEND_Click ()
    SendMail RTrim$(MsgFrom.Caption), MsgSubj.Caption, ReplyText.Text, False
End Sub

' ---- Message Text is Read-only
Sub MsgText_GotFocus ()
    CanWrite = False
End Sub

Sub MsgText_KeyDown (KeyCode As Integer, Shift As Integer)
    NoClipBrd KeyCode, Shift
End Sub

' ---- Message Text is Read-only
Sub MsgText_KeyPress (KeyAscii As Integer)
    KeyAscii = 0
End Sub

' ---- Reply Text is Read-write
Sub ReplyText_GotFocus ()
    CanWrite = True
End Sub